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title 9} Tecarete - character star returns routine 
eident /1-004/ ; Edit CGN1004 
S Egit WHM1003 
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facility: 
VAX/VMS PL1 runtime Library. 
abstract: 
| 


This module contains the routines necessary for functions to return 
string values on the stack. 


author: r. heinen 18-apr-1979 
modified by r. heinen 5-Jan-1982 to fix bug when using CALLS and strin 
target is more than 255 longwords away from current stac 
frame. 
1-003 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-004 Chip Nylander 28-February-1983 
, ' the oi yp anne dann R6 routine to handle the case when 


‘ring is returned eS gs multiple levels of procedure 
lavecet on, in BEGIN-END blocks for example. 
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; external definitions 


PL 
1- 


OC 08 08 04 OC 08 08 04 


CHRSTR 


I 
= character star returns routine 


"SSEp=19be 14:56:25 EBCIRNL. 


; define descriptors 


: ; data table for calculation of register save area size 


oF i table: 
«ebyte 0,4,4,8,4,8,8,12,4,8,8,12,8,12,12,16 


OOoQooooooo°o°oo 
oOooooooooooo 
SoOoOQoQooQooooo°oo 


ie lelolelelelelelelolal a) 


o v04-00 
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: define stack offsets 


foal 
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-sbttl return string function routines | 
pli$charstr_r6 = return string via unknown descriptor through multiple levels 
functional description: 

; This routine is entered with a JMP instruction. 


; returm argument addressed by r 
; The routine either: 


1. Returns the string via the specified descriptor if the address 
field is filled in the descriptor. 


2. Returns the string on the stack if the address field is null. 


; The action of this routine is 0 return a string based on the function 
; The format of the returned storage is based on the descriptor type. 


; At this time, two types are allowed: 


1. dsc$k_class_s - fixed character descriptor 
2. dsc$k_class_vs - varying character descriptor 


; descriptor size field to specify the maximum size. The descriptor is not 
; written. 


If the address field of the descriptor is null then the string is returned 
ole A pt and the descriptor size and address are filled to reflect the 
return value. 


In the case of a stack return, the caller regains control with SP addressing 
the data in the descriptor specified form. 


If r3 is zero, then all the work can be handled by a simple application 
of ots$charstar_r6, so we just jump there. Otherwise, we unwind the 
appropriate number of stack frames as directed by r3, then jump to 
ots$charstar_r6 to finish up. 


If the string to be returned is in the local stpregs of a stack frame to be 
unwound, we allocate a LIBSGET_VM buffer to cache the string while 

things are — unwound, then copy it back to the local storage of the 

; resulting procedure frame before Raping to ots$charstar_ré. 


Don't be tempted to get any fancier in the future. ALL the fancy ideas 
; were considered and discarded. Trying to ‘‘bubble ur the string by 
; successive invocation of ots$charstar_r6é from a shell routine doesn't work: 
; cases like 
#0,F00 
-ENTRY F00,<R7,R8,R9> 


#0,BAR 
.ENTRY BAR <R2,R3,R4,R5,R6> 
JMP —s- PLISCHARSTR_R6 


; cause registers R2-R6 to be permanently obliterated by the second trip 


mk a tk od ot od 8 od ot = 4 = = 9 88 2 2 = 2 = = = Ss SS ts SS a Ss ss ts St 


SOOCOSCOSooooooooooooo oo oooooocoooooooooooooooooooooooooooooo 
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PROPINIMONDNIDS 9 9 9 9 MH DOOD DOOOO OOOO 0000000000 09 09 09 09 09 0909098 SI NIN NNN 
ANEW OOO NAMUESWIN OOD NAME WIN  O OD NAU EWN 0 OD NAU EWN 0 OONOU SWI 
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ee a a a a a a 4 4 3 4 4 es 


If the descriptor address field is valid the string is returned using the 
| 
| 
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a SCHRSTR 
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through ots$charstar_r6. Trying to manually restore all the proper registers 
rom the proper places as represented by the intervening procedure frames 

was hopeless. Attempting to slide the intervening procedure frames 

down to make room for the str in the calling procedure creates small 


n 
; windows of stack-inconsistency Phat interfere with AST handling and 


VMS checkpointing. 
inputs: 


size of the string to return 

address of the string to return 
address of the return descriptor 
number of procedure frames to unwind 


oy 
_ 
nonn 


outputs: 
none. 
exceptions: 


A Lib$Sget_vm or Lib$free_vm failure penorenen an appropriate 
Lib$signal. See also otS$charstar_r 


Li$charstr_r6:: 
tstl r ; norcged tae code should never do this, 
bneq 10$ ; but check just to make sure 
brw ots$charstar_r6 ; no work to do 
10$: mov l i ; initialize for frame search 
20$: decl c 3; find last frame to be unwound 
bleq 30$ ; branch if done 
movl sf$l_save_fp(r6),r6 3 pickup next fp 
brb 208 ; loop 
30$: movq r0,r3 ; save string size and address 
move =: #16, r 5 : initialize buffer size 
cmpl r4,sp ; is string to return on stack? 
blss 408 ; if lss then no ; 
cmpl r4,r6 : is it in a frame to unwind? 
bgtr 40$ ; if gtr then no 
addl r3,r5 3; have to cache string, add size 
40$: pushl r5 3; push number of bytes to allocate 
clrl -(sp) ; address to return address 
pushab (sp 3; setup argument List 
pushab 8(sp) : 
calls #6 Gog 1bSget_ve ; allocate the memory 
blbs r0,50$ : if low not set then error 
pushl fr ae 3 signal error condition 
calls #1,g*lib$signal 
ret really can't finish after this 
50$: popl get address of allocated space 


save in ap of last frame to unwind 
save buffer size in buffer 

; save string size and length in buffer 
save desc address in buffer 

; do we need to cache the string? 

; if eql then no 

; copy string to buffer 


r0 
mov l r0,sf$l_save_ap(ré6) 
popl (r6)+ 

movg r3,(r0)+ 


cpt Fig. 


69s 
moves r5,(r4),(r0) 


| 
— | 


i 
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50 QOOO007E'EF 9 D 184 60$: movab ; want to continue here 
1 ‘ A6 OD 4 185 mov fs" gave grote? ri ; in this procedure context 
Q00000000'GF 1 78 Oo] § jmp i 1B Cap) nonToc_goto ; unwind what we don't want 
6c 10 OD cf 187 70$: cmpl ; do we need to restore the string? 
OE 1 1 8 beql 3; if eql then no 
SE S AC § ; 1 subl es $p ; make room on stack for string 
6— 10 AC 4 AC 0 190 move3 ita ;16(ap), (sp) ; restore string 
08 AC SE 00 Q08D 191 movl ; update string addres 
8C DD 0091 138 80$ pushl ; push number cf bytes to deallocate 
FC AC 9F 0093 19 pushab <atae) 3; address to geal hoc te 
23 8C 67D B28 194 movq (ap)+,r3 : restore stri ng size and address 
8C go 4 195 movl (ap)+,r2 3; restore descr ptor address 
6E F 9C 138 pushab (sp) 3; setup argument List 
08 A 9F QO9E 19 pushab 8(sp) : 
O0000000'GF 0 FB QOA1 198 calls oG-G,t ieStreeve ; deallocate the memory 
09 5 E8 eras 199 blbs r0,90$ ; if low not set then error 
50 DD OO0AB 00 pushl r0 3; signal error condition 
00000000'GF 01 FB OOAD 01 calls #1,g*lib$signal 
50 53 7D 00B4 b 90$ movq r3.r : 
00.) «(11 pret $b brb ots$charstar_r6 ; and go finish up 


| 
; setup for ots$charstar_r6 
| 
| 


& 


=) 


M13 
PLISCHRSTR - character star returns routine 16-SEP-1984 02:11:14 VAX/VMS Macro V04-00 Pa 
1- return string ation routines aes 1 oer tgide PLIRTL.SRCJPLICHRSTR.MAR; 1 ” (3) 


In order to shuffle the stack, a calculation is done which results in the 
storage address of the string taking into account the CALLS notion of the 


B9 3 ++ 
93 y : ots$charstar_r6 = return string via unknown descriptor 
089 § : functional description: 
B9 10 ; 
B9 11 3 
089 \¢ 3 
0B9 135; The action of this routine is to return a string based on the function 
dose 13 ; return argument addressed by r2. 
94 1 : The routine either: 
0 B9 18 ; 1. Returns the string via the specified descriptor if the address 
Boog J? ; field is filled in the descriptor. . 
494 1 ; 2. Returns the string on the stack if the address field is null. 
sib ; The format of the returned storage is based on the descriptor type. 
beet $2 : At this time, two types are allowed: 
00B9 S : 1. dsc$k_class_s - fixed character descriptor 
seb $8 3 2. dsc$k_class_vs - varying character descriptor 
0089 $6 ; If the descriptor address field is valid the string is returned using the 
0089 31 ; descriptor size field to specify the mamimum size. The descriptor is not 
bees 3 3 written. 
0089 34 : If the address field of the descriptor is null then the string is returned 
0089 35 ; on the stack and the descriptor size and address are filled to reflect the 
+94 $$ 3 return value. 
00B9 38 : In the case of a stack return, the caller regains control with SP addressing 
0089 39 ; the data in the descriptor specified form. 
00B9 40 ; 
i: 
28 3 
44; 
45 ; 
46 ; 
47; 
48 ; 
49 ; 
50 ; 
2] 3 
38 : 
54; 
22 : 
3 
35 : 
60 ; 
61; 
62 ; 


oS 

oO 

@ 

o 
RIPIMPIPININPINININIPIPIPYININININIPIPININININIPOPUPNINIPIPUPUPIPIPINPIPINPUNININYINYD 


FCE 
Ft 
00B9 incom ng call and the alignment of the stack prior to the call. FCE 
0089 With this number, a new frame is created far enough below the other to allow F CE 
0089 for the spring. The current frame and the subroutine frame are then merged FCE 
00B9 allowing for the saved registers in the previous frame. The current frame is FCE 
0089 then changed to a CALLS frame with enough arguments and allignment such that F CE 
0089 after the RET, SP is correctly acergesing the return. FCE 
0B9 The previous frame is then removed from the stack FP List. With the space FCE 
089 reserved, the string is copied to the target place being careful not to FCI 
° 44 write over the potential string data space. 4t 
0B9 One optimization is possible. If the incomming call is a CALLS then a FCI 
0B9 check is made to see if the argument List passed is Large enough to FCi 
0089 hold the target string. If it is then no aditional frame need be created FCI 
sit and the string can be stored over the now worthless argument list. SP is FCE 
3 ; then adjusted by modifying the argument count and frame alignment. 
44 inputs: 
B9 r0 = size of the string to return 
9 rl = address of the string to return 


This routine is entered with a JMP instruction. 
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3 $3 : r2 = address of the return descriptor 
089 69 ; outputs: 
$89 89 : none. 
OB9 83 > exceptions: 
0B9 71: Any number of exceptions are possible during this operation. The stack 
0B9 ie ; movement is done is a way that preserves the integrity of the stack but 
0089 73 ; does not provide a method for fielding exceptions and cleaning up. No 
8 B9 74 ; data is stored if an exception occurs. If an exception handler fields the 
94 2 ; exception and then unwinds to the caller the exception handler is in error. 
0B9 277 ;-- 
00B9 78 ots$charstar_ré:: 
55 04 A2 00 00B9 79 v dsc$a_pointer(r2),r5 : fetch target arddress 
04 13 OO0BD 80 beql stack_return : if eql then return on stack 
0106 30 OOBF 81 bsbw return_characters 3; return strings via descriptor 
04 pote B ret 3 return to caller 
Bate 284 ; return varying string on stack - calcu.ate target address 
b0¢3 386 Stack_return: 
00C $3 : calculate the sp value prior to call taking into account the call 
45 $88 ; instruction type and previous stack alignment 
54 06 AD B80 OO0C 291 movw sf$w_save_mask(fp),r4  ; fetch frame's save mask 
55 54 02 OF EF 00C7 $36 extzv  #sf$v he Venetetabe ye (Stl et alignment 
55 14 A045 9€ OOCC 29 movab 20(fp)Cr5J),r5 3; address past fixed part of frame 
56 D& Q0OD1 294 clrl r 3 accumulate reg save mask size 
53 54 04 00 F Q00D3 295 extzv. #0,#4,r4,r3 :; calc size of register save mask 
53 -FF23 CF43 A 00D8 296 movzbl w'table(r3J,r3 3 get size in bytes for this part 
56 53 CO OODE 297 addl r3or 3; accumulate result 
5 54 04 04 EF OOE1 298 extzv #4,44,r4,r3 3 get byte size for next section 
53 FFIS CF43 9A O0E6 299 movzbl wtableCr3J.r3 ; 
56 53 CO OOEC 00 addl r3.r 3; accumulate total 
53 54 04 08 EF OOEF 01 extzv #8,44,r4,r3 3; get byte size for next section 
53 FFO? Cras Hh, OOF 4 08 movzbl wtable(r3J,r3 : ae 
a ro.r ; accumulate tota 
55 56 C0 sf} 304 addl r6.r5 ; calc address based on size 
8198 8S ; accumulate argument List space if CALLS used 
B18 4 : check for possible optimization noted above 
2 DD $100 10 ° pushl fr ; save address of the input descriptor 
2g 5 dO ee 11 movl r te 3 sony possible address of arglist 
5 -. € 10 \¢ subl r0,r ; calc string target address 
7 ee 108 1 subl #2,r5 ; allocate size word space | 
34 54 OD 3 108 14 bbc #sf$v_calls.r4,move_frame; br if not calls ; 
53 g 9¢ 8 O10F 15 ashl Wg. (r2)+.r3 : fetch size of calls arguments in bytes 
Cc} 113 18 addl r5,r5 ; cale original caller's sp 
5 046 C¢ B18 1 addl #4,r5 :; include argcount longword | 
02 OF EF 0119 18 extzv #sf$v_stackoifs M#sf$s_stackoffs,- ; 
53 06 AD O11c | 31 sf$w_Save_mask(fp),r3” ;get this frames alignment | 
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53 88 BB 3 ets «7857805 
1B Od blss move_frame 


salign future ap start 

; is target within arglist? 

: ; if lss then no - use elaborate return 
: string can be returned inside the calls argument List 


ie: an on oe, extzv  #0,#42,r3,r4 ; get byte offset value 
02 OF 54 F0 insv r4 #sf$v_stackoffs,#sf$s_s ackoffs,-; set new alignment 
06 AD st $w save_mask(fp) ; 
52 54 £0 addl r4or 5 edéress future ap data 
a ae oo of 7 ashl #-2,73,-(r2) ; insert new argument List size 
5C g DO mov | r2,ap ; reset ap address 
52 8EDO - l r i; restore descriptor address 
5811 r unknown_target : 
$ setup area to return string to on stack 
: allocate enough space for the string on the stack 
move_frame: 
2 8EDO popl r2 ; restore descriptor size 
ee D1 cmpl r5,sp ; stack deep enough now? 
03 =i1€E bgequ 15$ a | serene above sp then yes 
a: we. 8 mov l r5,sp ; else start at target address 
> create a stack frame below target area 
5E 03 CA 15$:  bicl #3,sp align stack 
53 7E 7E movaq <-(sp),r3 


setup future pee list storage 
this storage will be used to base 
an argument List that will re-align 
the stack after final RET 


6 subl £6.30 save room for registers 
SD'AF 04 AS FA callg 4(r3),b*20$ generate nie stack 3 
pass ap as future argument List address 
04 ret never used 


routine to copy string to stack 
inputs: 
r0,r1 describe the string to return 


r2 = address of the descriptor 

r> = address of the target 

r6 = size of register save area 

ap = address of future sp correction argument List 


after entry to this routine the current stack frame has the prevoius 
frame's registers saved in the same place as if the previous frame's 
register save mask was used for this entry. By copying the register 
save mask, psw, and saved fp,ap,pc the frame will be identical. 


0000 0S: -word 0 ; registers saved above 


De Rho Oe Oe Se Be Se Be Be Oe Oe Be Oe Oe Oe Oe ee 


3 copy data from previous stack 


me ee eed ed ed 8 od = dd 8 = = od 8 = 
Pee eae ea eae eles eles eal wales) cali al ab al abel ab ah alah al al al ae oF oP oF oe oP a oP oo oP or or oe ie eee eS wt ee ee 
MWMARMHBMOVCVCVVCVCVCVCVTVTOVOVOVOVOVOVO GOA ONL LLL AS MMMMND OO AWWW IN Ss Oo OW SO OOOOonn 
SNS SOO DADA DA AD. TTT BS BS BS BB BB NAAN WINIWIIInnpnononorornonorfry 
AUIS AN =O OONAUE WD 0 OO NAU EWN  O OD NAUE WN O OONAUES WN O OONOUS WhO 


WAAAANAAINAIAAAANAA AANA AAAANNAAAAWNANAANNIWIAWANNANI NANA NAN NNAANAINO 


o 
~m 
fale le leleolal a leleleolelelelalelololwleloleloeloleleleleololelelelolelelelelolololalelelelelololololo) 


53 OC AD 00 mov l sf$l_save_fp(fp).r3 ; address previous stack frame 
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04 AD 4A B 16 77 movw sf$w_save_psw(r3),sf$w_save_psw(fp); insert psw 
06 AD : A B 183 4 movw SfSucsavermask(r3).sf$a, save mask( fp); insert new save mask 
10 AD 0A 0 198 7 mov sf$l_save_pc(r3),sf$l_save_pc(fp); copy pc from previous 
08 AD OBA D Q1 § 80 movq sf$l_save_ap(r3),sf$l_save_ap(fp); copy original ap and ap 
17 1 ; remove previous from stack List 
7 Be 177 ¢ pushr #*m<r0,r1,r2,r5> ; save registers 
14 AD 14 A3 § 2 179 moves 6,20(r3),2 yp ; copy register save area 
€ BA O17F 84 popr #*m<r0,r1,r2,r5> 3; restore registers 
53 55 . a Oe 85 subl3 ap o03608 ; calc extra arglist space for sp align 
54 55 02 9? EF 133 6 extzv #0,#2,r5,r4 3 get byte alignment value 
02 O€ 4 FO Q18A 8 insv r4 #sf$v_stackoffs,#sf$s_s ackoffs,-; set new alignement 
06 AD 18! 58 sf$w_save_mask (fp) 3 
5C = 554 £8 19 9 addl r4,ap ; point to new arglist start 
53 FE 8F 8 019 90 ashl 4-2, 13.-(ap) 3; divide by 4 to get Longwords 
06 A 2000 8F AB $138 +4 bisw #ilasf$v_calls,sf$w_save_mask(fp); force calls 
019E 98 3 . 
019E 94 ; fill in the descriptor 
019E 95 ; 
019E 96 unknown_target: 
62 50 80 O19E $95 movw r0,dsc$w_length(r2) ; return size 
04 A2 55 00 OQI1AI 98 movl r5,dsc$a_pointer(r2) 3; specify address of target 
21 10 Q1A5S 399 bsbb return_characters 3 move string 
50 6C OQOO000FF 8F QO1A7 400 bicl3 #*xff,Tap),r0 : gst arg count above 255 
16 13 OQO1AF 401 beql 2 3 if eql then leq 255 
51 6€40 DE 0181 ret moval (ap)Cr0J),r1 ; cal new_ap address 
0185 40 ; within 255 range 
61 6C 9A 0185 404 movzbl (ap),(r1) ; insert new reduced arg count 
0188 405 ; at future new ap site 
52 5C 5D C3 0188 406 subl3 fp-ap.re ; cal size of current frame 
7 2.) 2 2 #706. 607 subl3 rd,ri,ré ; cal address for new frame 
66 6D 52 28 Q1CO0 408 movce3 r2,(fp),(ré6) 3: copy frame to new location 
50 56 00 Q1C&4 409 mov l r6,fp 3 run on new frame 
04 O1C7 410 258: ret 3 return to caller 
01c8 411; 
01C¢8 tig 3; case on target format 
01C8 413; 
01C8 414 return_characters: 
01¢C8 415 case sxgent .dacdh_clase(r2).<- : 
01C8 416 503,- ; invalid return ; 
01c8 417 60$,- 3; dsc$k_class_s - fixed string 
01¢C8 418 50$,- ; invalid return 
01C8 419 50$,- ; invalid return 
gic8 420 50$,- ; invalid return 
OiC 421 50$,- : invalid return 
01c8 4 ¢ 50$,- ; invalid return 
01c8 4 50$,- ; invalid return 
01C8 424 50$,- : invalid return 
01C 425 50$,- : invalid return 
aie 426 50$,- ; invalid return , : 
1¢ 427 70$,- ; dsc$k_class_vs - varying string 
pice 428 > ; 
05 12 ? 4 50$: rsb : invalid type code 
166 431 ; fixed return format 
166 4 ¢ : 
166 433 408: 
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= character star returns routine 
return string function routines 


LISCHRSTR 


~~ 


2) 


I 
| 
65 61 50 38 166 434 moveS) r0,(r1),(r5) 3 return string | 
1EA 435 rsb 
TER 436 
1EB 437 ; character varying return code 
1B 4 3 : 
1EB 439 708: | 
a 2 Bi O1EB 440 cmpw 0 dsc$w_length(r2) ; cale size to return 
0 15 OIE 441 bleq ; if leq then original in range 
5 g 8 1F rr movw 4 c$w_length(r2),r0 3; set desc as max size 
6 8 1F 445 75$ movw ds cou Lengthire) ; set s ze in desc | 
4 Be ite 444 pushr re mer ; save size and target 
02 a5 61 50 1F8 445 moves 0, (ris. 3trs) : copy string 
O1FD 109 ; for the elaborate case... 
Rite as ; the size must be returned after move to prevent possible overlap problem 
9—E BE F7 O1FD 450 cvtlw (sp)+,a(sp)+ 3; return size at front of string 
05 0200 451 rsb 
0201 452 -end 


i= 


Symbol table 
DSCSA_POINTER 


PLISNONLOC_ GOTO 
RETURN CHARACTERS 
SF$L_SAVE_AP 
SFSL-SAVE_FP 
SFSL_SAVE-PC 
SESS _STACKOFFS 


SF SW" SAVE PSwW 


STACR_RETORN 
TAB 
UNKNOWN_ TARGET 


PSECT name 


Initialization 
Command processing 
Pass 1 

may table sort 


Symbol cvable output 


There were 10 


aan 


Psect synopsis output 
Cross-reference output 
Assembler run totals 


Page faults 


The working set Limit was 900 pages. 
15616 bytes (31 pages) of virtua 


E 14 
- character star returns routine yp a tat ae aS: 
6-SEP 


wins oe 


gererenre 
eeeeeeee K 
eaeeeraere 


AX/VMS Macro V04-00 Page 
7:36:25 (CPLIRTL.SRCIPLICHRSTR.MAR; 1 


oO 
oO 
Oo 
oO 
@ 
oO 
zw 
a 


ca 
= 
a 
& 
oe 
= 
> 
» 

oo 


00001C8 R 
900000 
00C 
444 dh 
000000 
00000000 
QO00000E 
00000006 
00000004 
000000C3 R 02 
00000000 R 02 
0000019E R 02 
ere enr sen en eer erece + 
: Psect synopsis : 
Allocation PSECT No. Attributes 
443444 00 : 9. NOPIC USR CON ABS LCL ee NOEXE NORD aes NOVEC BYTE 
00000 nfs 01 -) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
$0000201 51 62 2°} PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 


eee w ere oene se wee eee ee owa} 


CPU Time Elapsed Time 

13 00:00:00.07 08:00:01 «Be 
82 00:00:00.55 00:00:04.01 
116 00:00: goa 00:00:09.56 
83 00:00: 1:53 se Sb eo 
80:00; 0. j $0:00;00.08 

eC Ae Sea eS 00:00:00.02 

0 8 On by es 98:00:98 -00 
299 00:00:04.6 0:00:20.51 


memory were used to buffer the intermediate code. 


pages of symbol table space allocated to hold 171 non-local and 18 local symbols. 
452 source Lines were read in Pass 1, . 
11 pages of virtual memory were used to define 10 macros. 


producing 11 object records in Pass 


1 
( 


1 
2). 


1 
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PLISCHRSTR - character star returns routine 1 mite ht 9 oer : 
SEP-1984 


6 4 VAX/V A Macro V04-00 Page 1 
VAX-11 Macro Run Statistics 6- ’ (3) 


1:4 
2:36:25 CPLIRTL.SRCIPLICHRSTR.MAR; 1 
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! ; Macro Library statistics ! 


ww eeoeoe aunnennesnnesseenen} 


Macro Library name Macros defined 
3 SSSDUAZB: PLIRTL.OBJJPLIRTMAC MLB; 1 

~$255$DUA08: CSYSLIBISTARLET.MLB; 2 

TOTALS (all Libraries) 

234 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLICHRSTR/OBJ=OBJ$:PLICHRSTR MSRC$:PLICHRSTR/UPDATE=(ENH$:PLICHRSTR)+LIB$:PLIRTM 


33 


PMENT CORPORATION = 
SAND PROPRIETARY 


